home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_marin.scp < prev    next >
Text File  |  1994-08-11  |  2KB  |  91 lines
  1. { MARINE_ENTER_COMBAT
  2.     w     CURFIG CLEAR MR-HLS PICTURE 1
  3.     w     CURFIG CLEAR MR-HLND PICTURE 2
  4.     w     CURFIG CLEAR MR-HRS PICTURE 3
  5.     w     CURFIG CLEAR MR-RHND PICTURE 4
  6. }
  7.  
  8. { MARINE_LEAVE_COMBAT
  9.     w     CURFIG RESTORE MR-HLS
  10.     w     CURFIG RESTORE MR-HLND 
  11.     w     CURFIG RESTORE MR-HRS
  12.     w     CURFIG RESTORE MR-RHND
  13. }
  14.  
  15.  
  16. { MARINE1_WOUNDS
  17.        @Ç¢               ( MARINE1)
  18.     @Ç¥   MARINE_WOUNDS
  19. }
  20.  
  21.  
  22.  
  23. // FOLLOWING ARE LISTED THE POSSIBLE DECALS MARINE CAN HAVE APPLIED
  24. // MAR0PIC.FLC = PICTURE     (THIS IS THE FLIC CONTAINING ALL DECALS)
  25. //   (ORIGINAL TXM MUST BE REDRAWN BEFORE DECAL UNLESS NOTED) (RESTORE) (FISTS)
  26. //   _DMG FLAGS: 1-7 DAMAGE    
  27. //
  28. // TEXTURE           TXM      FRAME   _DMG   DECAL
  29. //                   NAME     #       FLAG
  30. // HAND              MR-HLS   1              HAND
  31. // HAND              MR-LHND  2              HAND
  32. // HAND              MR-HRS   3              HAND
  33. // HAND              MR-RHND  4              HAND
  34. // CHEST             MN-CHS1  5       1      CHEST DAM
  35. // CHEST             MN-CHS1  6       2      CHEST DAM 2
  36. // BACK              MR-BCK   7       3      BACK DAM  
  37.  
  38.  
  39. { MARINE_WOUNDS
  40.     P        ~ÇÇ           
  41.     P        ~Çü     
  42.     P        ~Çé     
  43.     P        ~Çâ   
  44.     P        ~Çä 
  45.     P        ~Çà       
  46.    
  47.         
  48.     // DETERMINE HOW MUCH DAMAGE THE MARINE IS SHOWING.
  49.  
  50.     ~Çä  = .ÇéÇä          
  51.  
  52.     ~ÇÇ            = @Ç»       ( ~Çä , 1, 3 );
  53.  
  54.     // DETERMINE HOW DAMAGED THE MARINE IS.
  55.  
  56.     ~Çà        = .ÇéÇà            / 4
  57.     ~Çü      = .ÇéÇÇ        / ~Çà       
  58.     I ( ~Çü      < 1 ) THEN ~Çü      = 0
  59.     I ( ~Çü      > 3 ) THEN ~Çü      = 3
  60.  
  61.     ~Çü      = 3 - ~Çü     
  62.   
  63.  
  64.     // IF MARINE IS SHOWING LESS DAMAGE THAN HE HAS, DRAW MORE DAMAGE.   
  65.         
  66.     I ( ~ÇÇ            < ~Çü      ) THEN
  67.        
  68.         {
  69.             
  70.         :TOP
  71.  
  72.         ~Çâ    = @Çà    ( 1, 3 )
  73.             
  74.         I ( @ÇÅ     ( ~Çä , ~Çâ    ) = 1 ) THEN 
  75.             J    #Çä
  76.         E   
  77.             I  ~Çâ    = 1 THEN w     CURFIG DRAWONLY MN-CHS1 PICTURE 1 MARINE
  78.             I  ~Çâ    = 2 THEN w     CURFIG DRAWONLY MN-CHS1 PICTURE 2 MARINE
  79.             I  ~Çâ    = 3 THEN w     CURFIG DRAWONLY MR-BCK PICTURE 3 MARINE
  80.             a      ( ~Çä , ~Çâ    )
  81.         ~ÇÇ            += 1
  82.  
  83.         }
  84.  
  85.     .ÇéÇä           = ~Çä 
  86.                                         
  87.   }
  88.  
  89.  
  90. //$ 26 - version number
  91.